home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / WINDOWS / ALTD201A.ZIP / VB30.ZIP / VB30 / EX26VB.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-19  |  4.4 KB  |  164 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4770
  6.    ClientLeft      =   2115
  7.    ClientTop       =   1515
  8.    ClientWidth     =   3870
  9.    Height          =   5175
  10.    Left            =   2055
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4770
  13.    ScaleWidth      =   3870
  14.    Top             =   1170
  15.    Width           =   3990
  16.    Begin CommandButton About 
  17.       Caption         =   "About"
  18.       Height          =   495
  19.       Left            =   240
  20.       TabIndex        =   7
  21.       Top             =   3960
  22.       Width           =   1455
  23.    End
  24.    Begin CommandButton Extract 
  25.       Caption         =   "Extract"
  26.       Height          =   495
  27.       Left            =   240
  28.       TabIndex        =   6
  29.       Top             =   3360
  30.       Width           =   1455
  31.    End
  32.    Begin CommandButton DelButt 
  33.       Caption         =   "Delete"
  34.       Height          =   495
  35.       Left            =   2040
  36.       TabIndex        =   5
  37.       Top             =   3360
  38.       Width           =   1335
  39.    End
  40.    Begin CommandButton Command1 
  41.       Caption         =   "Exit"
  42.       Height          =   495
  43.       Left            =   2040
  44.       TabIndex        =   4
  45.       Top             =   3960
  46.       Width           =   1335
  47.    End
  48.    Begin ListBox List1 
  49.       Height          =   2175
  50.       Left            =   2040
  51.       MultiSelect     =   2  'Extended
  52.       TabIndex        =   1
  53.       Top             =   240
  54.       Width           =   1335
  55.    End
  56.    Begin FileListBox File1 
  57.       Height          =   2175
  58.       Left            =   240
  59.       Pattern         =   "*.zip"
  60.       TabIndex        =   0
  61.       Top             =   240
  62.       Width           =   1455
  63.    End
  64.    Begin SSPanel SSPanel1 
  65.       BackColor       =   &H00C0C0C0&
  66.       FloodType       =   1  'Left To Right
  67.       Font3D          =   0  'None
  68.       Height          =   375
  69.       Left            =   480
  70.       TabIndex        =   3
  71.       Top             =   2520
  72.       Width           =   2655
  73.    End
  74.    Begin TextBox JobProgress 
  75.       Height          =   375
  76.       Left            =   480
  77.       TabIndex        =   2
  78.       Text            =   "Job Progress -I'm invisible, dude"
  79.       Top             =   2880
  80.       Visible         =   0   'False
  81.       Width           =   2655
  82.    End
  83.    Begin SSPanel Panel3D1 
  84.       BackColor       =   &H00C0C0C0&
  85.       FloodShowPct    =   0   'False
  86.       Font3D          =   0  'None
  87.       Height          =   4935
  88.       Left            =   0
  89.       TabIndex        =   8
  90.       Top             =   0
  91.       Width           =   3975
  92.    End
  93. Option Explicit
  94. Dim z() As ALZipDir
  95. Dim LibraryHandle As Long
  96. Sub About_Click ()
  97. frmAbout.Text1 = "EX26VB demonstrates the simplified interface.  Double click on a"
  98. frmAbout.Text1 = frmAbout.Text1 + " zip file to display its contents.  You can either"
  99. frmAbout.Text1 = frmAbout.Text1 + " extract or delete the file from the archive."
  100. frmAbout.Show 1
  101. End Sub
  102. Sub Command1_Click ()
  103.     Unload Form1
  104.     End
  105. End Sub
  106. Sub Command2_Click ()
  107. End Sub
  108. Sub DelButt_Click ()
  109.     Dim i As Integer
  110.     DelButt.Enabled = 0
  111.     i = 0
  112.     While z(i).size <> -1
  113.         If List1.Selected(i) Then
  114.             z(i).mark = 1
  115.         Else
  116.             z(i).mark = 0
  117.         End If
  118.         i = i + 1
  119.     Wend
  120.     DelButt.Enabled = 1
  121.     i = ALDelete(z(), 0, 0, JobProgress.hWnd)
  122.     File1_Click
  123. End Sub
  124. Sub Extract_Click ()
  125.     Dim i As Integer
  126.     Extract.Enabled = 0
  127.     i = 0
  128.     While z(i).size <> -1
  129.         If List1.Selected(i) Then
  130.             z(i).mark = 1
  131.         Else
  132.             z(i).mark = 0
  133.         End If
  134.         i = i + 1
  135.     Wend
  136.     i = ALExtract(z(), 0, 0, 0, JobProgress.hWnd)
  137.     Extract.Enabled = 1
  138. End Sub
  139. Sub File1_Click ()
  140.   Dim i As Integer
  141.   Dim count As Integer
  142.   Dim status As Integer
  143.   i = UBound(z, 1)
  144.   If z(i).compressed_size <> 0 Then ALFreeDir z()
  145.   ALReadDir z(), File1.FileName, count, status
  146.   List1.Clear
  147.   For i = 0 To count - 1
  148.     List1.AddItem z(i).name
  149.   Next
  150. End Sub
  151. Sub Form_Load ()
  152.   File1.Path = App.Path
  153.   ChDrive App.Path
  154.   ChDir App.Path
  155.   LibraryHandle = LoadLibrary(DLLName())
  156.   ReDim z(1)
  157. End Sub
  158. Sub Form_Unload (Cancel As Integer)
  159.   FreeLibrary (LibraryHandle)
  160. End Sub
  161. Sub JobProgress_Change ()
  162.   SSPanel1.FloodPercent = Val(JobProgress.Text)
  163. End Sub
  164.